home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / med300.zip / MEDONE.CLA < prev    next >
Text File  |  1994-02-22  |  2KB  |  38 lines
  1.  
  2. !▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  3. !█                                                                       █
  4. !█ MEDONE.CLA                                                            █
  5. !█ Finish editing a document and clean up memory                         █
  6. !█                                                                       █
  7. !█ Revision Number: 1                                                    █
  8. !█ Revision Date  : 22-Feb-94                                            █
  9. !█                                                                       █
  10. !█ Revision History                                                      █
  11. !█   1 Created                                                           █
  12. !█                                                                       █
  13. !▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  14.  
  15.               MEMBER('MEMOEDIT')
  16.  
  17. !═════════════════════════════════════════════════════════════════════════
  18. !              Finish editing a document and clean up memory
  19. !═════════════════════════════════════════════════════════════════════════
  20. ME_Done       PROCEDURE
  21.  
  22.   CODE
  23.   IF MED:bbAllocFlag                             ! If memory was allocated
  24.     MED:bbAllocFlag = 0                          !   Clear flag
  25.     IF MED:ulEditBuffer                          !   And free the buffer
  26.       CFree( MED:ulEditBuffer )                  !
  27.   . .                                            ! Endif
  28.   IF RECORDS(qDocument)                          ! If previous context
  29.     GET(qDocument, 1)                            !   Get previous context
  30.     DELETE(qDocument)                            !   Delete table record
  31.     ME_ReformDoc()                               !   Regenerate line table
  32.   ELSE                                           ! Else
  33.     CLEAR(qDocument)                             !   Clear context
  34.   .                                              ! Endif
  35.   RETURN                                         !
  36.  
  37.  
  38.